home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / utils / splitit.arc / strins.c < prev   
Text File  |  1990-01-21  |  586b  |  38 lines
  1. /******************************
  2.     Insert char c into string
  3.     s at position p
  4. ******************************/
  5. void strinc(
  6.     char    *s,
  7.     long        p,
  8.     char    c    )
  9.     {
  10.     long     i;
  11.     long    l;
  12.  
  13.     l = 0x1L + strlen(s);
  14.     for (i=l;i>p;i--)
  15.         *(s+i) = *(s+i-1);
  16.     *(s+p) = c;
  17.     }
  18.  
  19. /******************************
  20.     Insert string src into 
  21.     string dst at position p
  22. ******************************/
  23. void strins(
  24.     char    *dst,
  25.     long    p,
  26.     char    *src    )
  27.     {
  28.     long     i;
  29.     long    l,m;
  30.  
  31.     m = strlen(src);
  32.     l = m + strlen(dst) + 0x1L;
  33.     for (i=l;i>(p+m-1);i--)
  34.         *(dst+i)     = *(dst+i-m);
  35.     for (i=0;i<m;i++)
  36.         *(dst+p+i)    = *(src+i);
  37.     }
  38.